home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / DOT46.ZIP / aliases.ini next >
INI File  |  1996-09-08  |  16KB  |  466 lines
  1. [Aliases]
  2. n0=/home {
  3. n1=  set %home $read -l1 pass.txt
  4. n2=  set %homepass $read -l2 pass.txt
  5. n3=}
  6. n4=/checkhome {
  7. n5=  if %ss == ON {
  8. n6=    if (%home != #mIRC) { raw -q join %home }
  9. n7=    raw -q join %channels
  10. n8=    unset %channels
  11. n9=    unset %ss
  12. n10=  }
  13. n11=  elseif %ss != ON {
  14. n12=    if (%home != #mIRC) { raw -q join %home }
  15. n13=    unset %channels
  16. n14=    unset %ss
  17. n15=  }
  18. n16=}
  19. n17=/initialize {
  20. n18=  echo 4 -s [dot] Initializing...
  21. n19=  set %test 1
  22. n20=  set %ftext disabled
  23. n21=  set %fnick disabled
  24. n22=  set %pass disabled
  25. n23=  set %servermode enabled
  26. n24=  set %serverop enabled
  27. n25=  set %clonedetect [dot] special
  28. n26=  set %cdesync enabled
  29. n27=  set %mreview enabled
  30. n28=  set %oper enabled
  31. n29=  set %clog enabled
  32. n30=  set %flood normal
  33. n31=  set %ibanstat enabled
  34. n32=  set %sound enabled
  35. n33=  set %dcc enabled
  36. n34=  set %invite #mirc
  37. n35=  set %home $read -l1 pass.txt
  38. n36=  set %homepass $read -l2 pass.txt
  39. n37=  .disable #ftext
  40. n38=  .enable #servermode
  41. n39=  .enable #serverop
  42. n40=  .disable #clonehigh
  43. n41=  .disable #clonelow
  44. n42=  .enable #clonedot
  45. n43=  .enable #desync
  46. n44=  .enable #messagelog
  47. n45=  .enable #oper
  48. n46=  .enable #floodlow
  49. n47=  .disable #floodhigh
  50. n48=  .disable #homepass
  51. n49=  .enable #iban
  52. n50=}
  53. n51=/F1 /credits | /helpmenu | /.timer711 off
  54. n52=/sF1 /clearmenu | /.timer711 off | /echo 4 -s [dot] Status bar paused | /titlebar [dot] by residue - press F1 for help
  55. n53=/cF1 /join %invite
  56. n54=/F2 /clearmenu | /cstats | /echo 4 -s [dot] mIRCapplet channel stats activated | /cdisplay
  57. n55=/F3 /clearmenu | /dstats | /echo 4 -s [dot] mIRCapplet DCC stats activated | /ddisplay
  58. n56=/F4 /clearmenu | /gstats | /echo 4 -s [dot] mIRCapplet group stats activated | /titlebar [dot] mIRCapplet group stats
  59. n57=/F5 {
  60. n58=  if %ftext == enabled goto on 
  61. n59=  echo 4 -s [dot] Text/Action detection enabled
  62. n60=  set %ftext enabled
  63. n61=  .enable #ftext
  64. n62=  goto end
  65. n63=  :on
  66. n64=  echo 4 -s [dot] Text/Action detection disabled
  67. n65=  set %ftext disabled
  68. n66=  .disable #ftext
  69. n67=  :end
  70. n68=}
  71. n69=/F6 {
  72. n70=  if %fnick == enabled goto on 
  73. n71=  echo 4 -s [dot] Nick detection enabled
  74. n72=  set %fnick enabled
  75. n73=  .enable #fnick
  76. n74=  goto end
  77. n75=  :on
  78. n76=  echo 4 -s [dot] Nick detection disabled
  79. n77=  set %fnick disabled
  80. n78=  .disable #fnick
  81. n79=  :end
  82. n80=}
  83. n81=/F7 {
  84. n82=  if %pass == enabled goto on
  85. n83=  echo 4 -s [dot] Password system enabled
  86. n84=  set %pass enabled
  87. n85=  .enable %homepass
  88. n86=  goto end
  89. n87=  :on
  90. n88=  echo 4 -s [dot] Password system disabled
  91. n89=  set %pass disabled
  92. n90=  .disable #homepass
  93. n91=  :end
  94. n92=  .timer1031 off
  95. n93=}
  96. n94=/F8 /refresh
  97. n95=/F9 /messagelog
  98. n96=/F10 /ctcplog
  99. n97=/F11 /mservers
  100. n98=/F12 /detect
  101. n99=/credits {
  102. n100=  echo 4 -s [dot] for mIRC 4.6 by residue - released September 7, 1996
  103. n101=  echo 4 -s [dot] featuring enhanced mIRCapplets
  104. n102=  echo 4 -s [dot] email comments to residue@residue.com
  105. n103=  echo 4 -s [dot] thanks to warthog, docsavag, wuntvor, lewwid and li0nheart
  106. n104=  echo 4 -s [dot] copyright ⌐ 1996 douglas kee
  107. n105=  echo 4 -s [dot] all rights reserved
  108. n106=}
  109. n107=/mcredits {
  110. n108=  echo 4 -s [dot] Thanks to:
  111. n109=  echo 4 -s [dot] wikkid - helping me through one crisis after another and being a supercool person
  112. n110=  echo 4 -s [dot] karen, pixe, hershey, prysm, beauty, dancr, cobramist, prophet, ducky and ladyfizz - lots and lots and lots of support
  113. n111=  echo 4 -s [dot] digital, rikitiki, tigeroo, sungirl, solarpunk, rotten, zley, dr_j and e-ko - getting me started on irc
  114. n112=  echo 4 -s [dot] cpc, ii, jujube, noho, shipley, bikeracer, ladyj, pest, express, fang||, ladyhawke, phuzz and despayre - keeping me on irc
  115. n113=  echo 4 -s [dot] #nyc and #mIRC - my home channels, despite all the other wackos
  116. n114=  echo 4 -s [dot] and "dot" - supercali...itty-bitty : )
  117. n115=}
  118. n116=/helpmenu {
  119. n117=  titlebar [dot] Help menu system
  120. n118=  .timer800 1 5 /titlebar [dot] Press F1 for this menu (shift-F1 to pause)
  121. n119=  .timer801 1 10 /titlebar [dot] Press F2 for mIRCapplet channel stats
  122. n120=  .timer802 1 15 /titlebar [dot] Press F3 for mIRCapplet DCC stats
  123. n121=  .timer803 1 20 /titlebar [dot] Press F4 for mIRCapplet group stats
  124. n122=  .timer804 1 25 /titlebar [dot] Press F5 to toggle mIRCapplet Text/Action detection
  125. n123=  .timer805 1 30 /titlebar [dot] Press F6 to toggle mIRCapplet Nick detection
  126. n124=  .timer806 1 35 /titlebar [dot] Press F7 to toggle mIRCapplet Password system
  127. n125=  .timer807 1 40 /titlebar [dot] Press F8 to re-initialize session and update channel user lists
  128. n126=  .timer808 1 45 /titlebar [dot] Press F9 for mIRCapplet message review
  129. n127=  .timer809 1 50 /titlebar [dot] Press F10 for mIRCapplet CTCP review
  130. n128=  .timer810 1 55 /titlebar [dot] Press F11 to capture master server list
  131. n129=  .timer811 1 60 /titlebar [dot] Press F12 to detect splits
  132. n130=  .timer812 1 65 /titlebar [dot] by residue
  133. n131=  .timer813 1 70 /restart
  134. n132=}
  135. n133=/restart /helpmenu
  136. n134=/clearmenu {
  137. n135=  .timer800 off
  138. n136=  .timer801 off
  139. n137=  .timer802 off
  140. n138=  .timer803 off
  141. n139=  .timer804 off
  142. n140=  .timer805 off
  143. n141=  .timer806 off
  144. n142=  .timer807 off
  145. n143=  .timer808 off
  146. n144=  .timer809 off
  147. n145=  .timer810 off
  148. n146=  .timer811 off
  149. n147=  .timer812 off
  150. n148=  .timer813 off
  151. n149=  .timer814 off
  152. n150=}
  153. n151=/cstats /.timer711 0 5 /cdisplay
  154. n152=/cdisplay {
  155. n153=  :chanstats
  156. n154=  if $nick(0,$channel(%users)) == $null {
  157. n155=    set %users 1
  158. n156=    titlebar [dot] running at $host $fulldate
  159. n157=    goto end
  160. n158=  }
  161. n159=  if $mode($channel(%users)) == $null {
  162. n160=    titlebar [dot] Channel stats for $channel(%users) $+ (+) $+ : +o: $+ $opnick(0,$channel(%users)) -o: $+ $nopnick(0,$channel(%users)) átotal: $+ $nick(0,$channel(%users)) user(s)
  163. n161=    inc %users
  164. n162=    goto end
  165. n163=  }
  166. n164=  titlebar [dot] Channel stats for $channel(%users) $+ ( $+ $mode($channel(%users)) $+ ) $+ : +o: $+ $opnick(0,$channel(%users)) -o: $+ $nopnick(0,$channel(%users)) átotal: $+ $nick(0,$channel(%users)) user(s)
  167. n165=  inc %users
  168. n166=  :end
  169. n167=}
  170. n168=/dstats /.timer711 0 5 /ddisplay
  171. n169=/ddisplay {
  172. n170=  :dccgets
  173. n171=  if $get(%gets) == 0 { goto dccsends }
  174. n172=  if %gets >= $get(0) { goto dccsends }
  175. n173=  inc %gets
  176. n174=  titlebar [dot] DCC get in progress (nick/filename) $get(%gets)
  177. n175=  goto end
  178. n176=  :dccsends
  179. n177=  if $send(%sends) == 0 { goto dtotals }
  180. n178=  if %sends >= $send(0) { goto dtotals }
  181. n179=  inc %sends
  182. n180=  titlebar [dot] DCC send in progress (nick/channel) $send(%sends)
  183. n181=  goto end
  184. n182=  :dtotals
  185. n183=  set %gets 0
  186. n184=  set %sends 0
  187. n185=  titlebar [dot] Current DCC gets: $+ $get(0) áDCC sends: $+ $send(0)
  188. n186=  :end
  189. n187=}
  190. n188=/gstats /.timer711 off | /gdisplay
  191. n189=/gdisplay {
  192. n190=  .timer800 1 5 //titlebar [dot] Servermode detection %servermode
  193. n191=  .timer801 1 10 /titlebar [dot] Serverop detection %serverop
  194. n192=  .timer802 1 15 /titlebar [dot] Text/Action detection %ftext
  195. n193=  .timer803 1 20 /titlebar [dot] Nick detection %fnick
  196. n194=  .timer804 1 25 /titlebar [dot] Password system %pass
  197. n195=  .timer805 1 30 /titlebar [dot] Clone detection %clonedetect
  198. n196=  .timer806 1 35 /titlebar [dot] Flood detection %flood
  199. n197=  .timer807 1 40 /titlebar [dot] Smart iBan %ibanstat
  200. n198=  .timer808 1 45 /titlebar [dot] Channel desync detection %cdesync
  201. n199=  .timer809 1 50 /titlebar [dot] Sound %sound
  202. n200=  .timer810 1 55 /titlebar [dot] DCCs %dcc
  203. n201=  .timer811 1 60 /titlebar [dot] Message review %mreview
  204. n202=  .timer812 1 65 /titlebar [dot] CTCP review %clog
  205. n203=  .timer813 1 70 /titlebar [dot] IRC op mode %oper
  206. n204=  .timer814 1 75 /grestart
  207. n205=}
  208. n206=/grestart /gdisplay
  209. n207=/messagelog {
  210. n208=  echo 4 -s [dot] Message review
  211. n209=  set %lines $read -nl6 msg.log
  212. n210=  if %lines != $null { echo 2 -s $read -nl6 msg.log }
  213. n211=  set %lines $read -nl5 msg.log
  214. n212=  if %lines != $null { echo 2 -s $read -nl5 msg.log }
  215. n213=  set %lines $read -nl4 msg.log
  216. n214=  if %lines != $null { echo 2 -s $read -nl4 msg.log }
  217. n215=  set %lines $read -nl3 msg.log
  218. n216=  if %lines != $null { echo 2 -s $read -nl3 msg.log }
  219. n217=  set %lines $read -nl2 msg.log
  220. n218=  if %lines != $null { echo 2 -s $read -nl2 msg.log }
  221. n219=  set %lines $read -nl1 msg.log
  222. n220=  if %lines != $null { echo 2 -s $read -nl1 msg.log }
  223. n221=  :end
  224. n222=}
  225. n223=/ctcplog {
  226. n224=  echo 4 -s [dot] CTCP review
  227. n225=  set %lines $read -nl6 ctcps.log
  228. n226=  if %lines != $null { echo 2 -s $read -nl6 ctcps.log }
  229. n227=  set %lines $read -nl5 ctcps.log
  230. n228=  if %lines != $null { echo 2 -s $read -nl5 ctcps.log }
  231. n229=  set %lines $read -nl4 ctcps.log
  232. n230=  if %lines != $null { echo 2 -s $read -nl4 ctcps.log }
  233. n231=  set %lines $read -nl3 ctcps.log
  234. n232=  if %lines != $null { echo 2 -s $read -nl3 ctcps.log }
  235. n233=  set %lines $read -nl2 ctcps.log
  236. n234=  if %lines != $null { echo 2 -s $read -nl2 ctcps.log }
  237. n235=  set %lines $read -nl1 ctcps.log
  238. n236=  if %lines != $null { echo 2 -s $read -nl1 ctcps.log }
  239. n237=  :end
  240. n238=}
  241. n239=/mservers {
  242. n240=  .remove servers.txt
  243. n241=  .enable #master
  244. n242=  echo 4 -s [dot] Adding master server list...
  245. n243=  links
  246. n244=}
  247. n245=/masteroff /.disable #master | /echo 4 -s [dot] Servers added.
  248. n246=/detect {
  249. n247=  echo 4 -s [dot] Detecting splits...
  250. n248=  .enable #split
  251. n249=  links
  252. n250=}
  253. n251=/detect2 {
  254. n252=  set %count 0
  255. n253=  :sloop
  256. n254=  inc %count 1
  257. n255=  set %detect $read -l $+ %count servers.txt
  258. n256=  if %detect == $null goto end
  259. n257=  set %detect2 $read -s $+ %detect server.txt
  260. n258=  if %detect2 == $null echo 4 -s [dot] %detect
  261. n259=  goto sloop
  262. n260=  :end
  263. n261=  echo 4 -s [dot] Scanning complete
  264. n262=  .remove server.txt
  265. n263=  .disable #split
  266. n264=}
  267. n265=sc {
  268. n266=  echo 4 %chan [dot] filterkick of $1 $+ ...
  269. n267=  set %coun 1
  270. n268=  :next
  271. n269=  if $nopnick(%coun,%chan) == $null goto done
  272. n270=  set %nick $nopnick(%coun,%chan)
  273. n271=  if $1 isin $address(%nick,1) kick %chan %nick dot filterkick of $1
  274. n272=  inc %coun
  275. n273=  goto next
  276. n274=  :done
  277. n275=}
  278. n276=scx {
  279. n277=  set %kickmask $address($1,#)
  280. n278=  echo 4 [dot] filterkick of $mask(%kickmask,2)
  281. n279=  set %count 1
  282. n280=  :next
  283. n281=  set %nick $nick(%count,#)
  284. n282=  set %newmask $address(%nick,#)
  285. n283=  if %nick == $null goto done
  286. n284=  if $mask(%newmask,2) == $mask(%kickmask,2) kick # %nick dot filterkick of $mask(%kickmask,2)
  287. n285=  inc %count
  288. n286=  goto next
  289. n287=  :done
  290. n288=  unset %count %nick
  291. n289=}
  292. n290=/masskick {
  293. n291=  set %mkbmask $$1
  294. n292=  set %bnick $nick(0,%chan)
  295. n293=  %counter = 0
  296. n294=  :check
  297. n295=  inc %counter
  298. n296=  if (%counter <= %bnick) {
  299. n297=    if (%mkbmask iswm $address($nick(%counter,%chan),1) && $nick(%counter,%chan) !isop %chan) {
  300. n298=      kick %chan $nick(%counter,%chan) dot filterkick of %mkbmask
  301. n299=    }
  302. n300=    goto check
  303. n301=  }
  304. n302=}
  305. n303=/mk {
  306. n304=  set %bnick $nick(0,%chan)
  307. n305=  %counter = 0
  308. n306=  :check
  309. n307=  inc %counter
  310. n308=  if (%counter <= %bnick) {
  311. n309=    if (%bmask iswm $address($nick(%counter,%chan),1) && $nick(%counter,%chan) !isop %chan) {
  312. n310=      kick %chan $nick(%counter,%chan) dot filterkick of %bmask
  313. n311=    }
  314. n312=    goto check
  315. n313=  }
  316. n314=}
  317. n315=ss { 
  318. n316=  set %ss on
  319. n317=  set %coun 2
  320. n318=  unset %channels
  321. n319=  if $channel(1) == $null goto jump | else { set %channels $channel(1) }
  322. n320=  :chanloop
  323. n321=  if $channel(%coun) != $null  { set %channels %channels $+ , $+ $channel(%coun) | inc %coun | goto chanloop }
  324. n322=  :jump
  325. n323=  /unset %coun
  326. n324=  /quit [dot] Changing Servers
  327. n325=  /if *1 == $null server $server
  328. n326=  /server *1
  329. n327=}
  330. n328=/scan {
  331. n329=  echo 4 %chan [dot] Updating users on %chan $+ ...
  332. n330=  set %update 1
  333. n331=  :unscan
  334. n332=  if %update > $nick(0,%chan) goto next
  335. n333=  set %nick $nick(%update,%chan)
  336. n334=  set %site $remove($address(%nick,3),*!*@)
  337. n335=  set %utemp %chan $+ %site
  338. n336=  unset % [ $+ [ %utemp ] ]
  339. n337=  inc %update
  340. n338=  goto unscan
  341. n339=  :next
  342. n340=  set %update 1
  343. n341=  :scan
  344. n342=  if %update > $nick(0,%chan) goto endscan
  345. n343=  set %nick $nick(%update,%chan)
  346. n344=  set %site $remove($address(%nick,3),*!*@)
  347. n345=  set %utemp %chan $+ %site
  348. n346=  inc % [ $+ [ %utemp ] ]
  349. n347=  inc %update
  350. n348=  goto scan
  351. n349=  :endscan
  352. n350=  echo 4 %chan [dot] Complete.
  353. n351=}
  354. n352=/clones {
  355. n353=  echo 4 -s [dot] mIRCapplet clone detection activated
  356. n354=  set %update 1
  357. n355=  :scanclones
  358. n356=  if %update > $nick(0,#) goto endscanclones
  359. n357=  set %nick $nick(%update,#)
  360. n358=  set %site $remove($address(%nick,3),*!*@)
  361. n359=  set %utemp # $+ %site
  362. n360=  if % [ $+ [ %utemp ] ] >= 2 { inc %chanclones | echo 4 [dot] Clone: $address($nick(%update,#),0) }
  363. n361=  inc %update
  364. n362=  goto scanclones
  365. n363=  :endscanclones
  366. n364=  if %chanclones != $null echo 4 [dot] Total: %chanclones clone(s) | else { echo 4 [dot] No clones detected }
  367. n365=  unset %chanclones
  368. n366=}
  369. n367=/refresh {
  370. n368=  unsetall
  371. n369=  initialize
  372. n370=  set %refresh 1
  373. n371=  set %totchan $channel(0)
  374. n372=  :rcycle
  375. n373=  if %totchan < %refresh goto end
  376. n374=  set %chan $channel(%refresh) | /scan
  377. n375=  inc %refresh
  378. n376=  inc %test 10
  379. n377=  .timer 1 10 /dec %test 10
  380. n378=  goto rcycle
  381. n379=  :end
  382. n380=}
  383. n381=/iban /write -s $+ $1 bans.txt $1 *2 | /.auser =99 $1
  384. n382=/lban {
  385. n383=  write -s $+ %bmask bans.txt %bmask %breason
  386. n384=  .auser =99 %bmask
  387. n385=  echo 4 # [dot] Smart iBan added for: %bmask Reason: %breason
  388. n386=  unset %bmask
  389. n387=  unset %breason
  390. n388=}
  391. n389=/op /mode # +ooo $$1 $2 $3
  392. n390=/dop /mode # -ooo $$1 $2 $3
  393. n391=/deop /mode # -ooo $$1 $2 $3
  394. n392=/j /raw -q join #$$1 *2
  395. n393=/p /raw -q part #$$1 *2
  396. n394=/n /raw -q names #$$1
  397. n395=/w /raw -q whois $$1
  398. n396=/we /raw -q whois $$1 $$1
  399. n397=/ww /raw -q whowas $$1
  400. n398=/who /raw -q who $1 | /.disable #scan
  401. n399=/whom /.enable #scan | /.timer 1 2 /raw -q who $1
  402. n400=/k /kick # $$1 *2
  403. n401=/q /query $$1
  404. n402=/i /raw invite $$1 $$2
  405. n403=/send /dcc send $1 $2
  406. n404=/chat /dcc chat $1
  407. n405=/b /ban *1
  408. n406=/bb /kick # $$1 *2 | /ban # $$1 2 | /set %chan # | /sc $address($$1,3)
  409. n407=/no /notice $$1 [private] *2
  410. n408=/o /onotice | $+ # $+ -ops( $+ $opnick(0,#) $+ )| *1
  411. n409=/omsg /omsg  | $+ # $+ -ops| *1
  412. n410=/s /notice $$1  $+ *2 $+ 
  413. n411=/sf /.notice $$1  $+ *2 $+ 
  414. n412=/so /onotice # $1  *2
  415. n413=/sl {
  416. n414=  notice $1  $$2
  417. n415=  notice $1  $$3
  418. n416=  notice $1  $$4
  419. n417=  notice $1  $$5
  420. n418=  notice $1  $$6
  421. n419=  notice $1  $$7
  422. n420=  notice $1  $$8
  423. n421=  notice $1  $$9
  424. n422=  notice $1  $$10
  425. n423=  notice $1  $$11
  426. n424=  notice $1  $$12
  427. n425=  notice $1  $$13
  428. n426=  notice $1  $$14
  429. n427=  notice $1  $$15 
  430. n428=}
  431. n429=/d /dns *1
  432. n430=/stats /raw stats $1 *2
  433. n431=/a {
  434. n432=  if *1 != $null goto reason
  435. n433=  ame is away - leave a message
  436. n434=  away leave a message
  437. n435=  goto end
  438. n436=  :reason
  439. n437=  ame is away - *1 - leave a message
  440. n438=  away *1 - leave a message
  441. n439=  :end
  442. n440=}
  443. n441=/aa /away
  444. n442=/n /raw names #$$1 *2
  445. n443=/pong /raw pong $me $$1
  446. n444=/ca /clearall
  447. n445=/verc /say ╫non-mIRC-VERSIONdetection╫
  448. n446=/cycle /raw part # | /raw join #
  449. n447=/ca /clearall
  450. n448=/poll /passa | /echo 4 -s [dot] Password polling enabled
  451. n449=/passa {
  452. n450=  set %cop 0
  453. n451=  set %nop $opnick(0,%home)
  454. n452=  %cnt = $opnick(0,%home) + 1
  455. n453=  .timer1031 %cnt 15 /passb
  456. n454=}
  457. n455=/passb {
  458. n456=  if $me isop %home { timer1031 off | echo 4 -s [dot] Password Op detection | halt }
  459. n457=  inc %cop 
  460. n458=  if $level($address($opnick(%cop,%home),0)) == 50 { echo 4 -s [dot] Sending password to $opnick(%cop,%home) | /sf $opnick(%cop,%home) %homepass }
  461. n459=  if (%cop > %nop) || ($me isop %home) { passc } 
  462. n460=  :end
  463. n461=}
  464. n462=/passc /if $me !isop %home { .timer1032 1 3 /passa }
  465. n463=/polloff /.timer1031 off | /.timer1032 off | /echo 4 -s [dot] Password polling disabled
  466.